<asp:HyperLink ID="nextbtn" Runat="server">下一页</asp:HyperLink>

来源：百度知道 编辑：UC知道 时间：2024/09/28 10:01:22
Dim pagesize As Integer = 15
Sub bindlist(ByVal pageno As Integer)
...
search_pro.DataSource = ds
search_pro.DataBind()
conn.Close()
End If
End Sub

Sub enabledwhatbutton()
If Session("currpage") = 1 Then
firstbtn.NavigateUrl = Request.CurrentExecutionFilePath
Else
prebtn.NavigateUrl = Request.CurrentExecutionFilePath + "?page=" + Convert.ToString(Session("currpage") - 1)
End If
If Session("currpage") <> showtotalpage.Text Then
nextbtn.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(Session("currpage") + 1)
Else
lastbtn.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(Session("currpage"))
End If
End Sub

Sub pagechange(ByVal sender As Object, ByVal e As commandEventArgs)

Select Case e.CommandArgument

1、你没加分页控件。加一个PagedDataSource分页控件，或者利用RowFilter进行分页都可以。
2、你建了一个Session("currpage")，实事上你在分页的时候获取的都是 Request.QueryString（"Page"）
改了一下，没调试，不知道对不对，你可以自己调试一下。
Sub bindlist(ByVal pageno As Integer)
...
'search_pro.DataSource = ds
'search_pro.DataBind()
dim Pds as PagedDataSource = new PagedDataSource()
Pds.DataSource = ds.Tables(0).DefaultView
Pds.AllowPaging = true
Pds.PageSize = pagesize
dim CurPage as integer
dim null as system.dbnull
if Request.QueryString("Page") <> null then
CurPage=Convert.ToInt32(Request.QueryString("Page"))
else
CurPage=1
end if
Pds.CurrentPageIndex = CurPage-1
search_pro.DataSource=Pds
search_pro.DataBind()
conn.Close()

End Sub
应该是差不多的，呵呵。至于你那个sub pagechange 自己改了。